EXTENDED CPC DSK File Disk-Info Spectaculator(Track-Info R Track-Info  R FUTBOL  FUTBOL  !FUTBOL "#$%DISK &'()*+,-./012345DISK 6789:;<=>?@ABCDEDISK FGHIPLUS3DOSxr?:"FOOTBALL MANAGER"'" Copyright K. J. Toms 1982":300, 7:0:7:0:0:0:0::"Dime tu nombre ";m$:m$>20:"Es demasiado largo(max 20 carac.)":200:9 9000(#:8900" b+p(p )=((p-1)/8+1) cr(x)=(*x+1) d e 2000 n x$="keep"x$="KEEP"800  x 4000 8000@ 8100 8700! 100d  261 324,88X,126~,26,120x,72H,206,2,480,480,24,60<,28,568,480,40(,24,24,30,58:,24,42*,36$,32 ,24,24,24,28,60<,24,28,8,24,24,60<,90Z,90Z,60<,36$,102f,0,0,0,0,0,0,3,3,24,26,126~,88X,30,18,115s,64@,12 ,12 ,24,60<,568,28,12 ,20,24,24,120x,92\,24,84T,36$,4,24,24,24,568,60<,24,568,8,0,0,0,0,0,0,192,192,24,24,61=,90Z,568,28,20,36$,24,24,188,90Z,28,568,40(,36$,12 ,12 ,60<,91[,152,62>,64@,192,480,480,60<,218,25,124|,2,3  $i=015*8-1  q:"a"+i,q  i   06;k(2),k(1);k$(k(3)):k(3)=(1.5@/k(3))+1:r3=(d(2)>k(2)+(d(4)0))-(d(2)k(2)+(d(4)0))-(d(2)10 ):k(2)=23-k(1) 7i=23 8?f(i,1)=10 +r(20):f(i,2)=r(21) 9Wf(i,1)+f(i,2)<25f(i,1)>f(1,1)-43128 :Aj=13:(f(i,2)=f(j,2))(ji)3128 ;j:i <i=13 =?g(i,1)=10 +r(10 ):g(i,2)=r(18) >Wg(i,1)+g(i,2)<24g(i,1)>f(1,1)-4317= ?_j=13:(g(i,2)=f(j,2))((g(i,2)=g(j,2))(ji))317= @j:i Baw;f(1,2),f(1,1);f$(1):i=23:aw;f(i,2),f(i,1);f$(1+2*(f(i,2)<10 )):i Cbi=13:ho;g(i,2),g(i,1);f$(2+2*(g(i,2)<10 )):i E$1;d(2),d(1);d$ F(ho;k(2),k(1);k$(1) T:oop=0:dri=r(3)*2-1:wm=1 Ue=1dri:wm1=wm:wm=(1.5@/wm)+1:6;d(2),d(1);d$;1;d(2),d(1)-1;d$:d(1)=d(1)-1:360h:e VXj=13:6;g(j,2),g(j,1);f$(wm1+2*(g(j,2)<10 ));ho;g(j,2),g(j,1);f$(5):j:j=23:6;f(j,2),f(j,1);f$(wm+2*(f(j,2)<10 ));aw;f(j,2),f(j,1);f$(5):j:6;f(1,2),f(1,1);f$(2) Weaw;f(1,2),f(1,1);f$(1):.15~,-40(:d(4)=(d(2)<8)-(d(2)>15)+(d(2)>12 d(2)<16)*(r(2)-2):d(3)=-2:350^:350^:350^:aw;f(1,2),f(1,1);f$(1);f(1,2),f(1,1);f$(5) X#oop1350^:344X Y(d(1)+d(2)<22)(d(2)<14)(d(2)>4)(d(1)<15)(d(1)>6)(d(1)=7d(2)=13 d(4)<0)s(2)=s(2)+1:290":347[ ZM0:0;7;1,10 ;"NO GOL!":.25~,-502 [ 200 ] ^px=d(1)+d(3):py=d(2)+d(4):des=(py,px):((py+px=24)(py+px=25)(py+px=26)(py+px=27))py>7py<14270 _px+py<22py<0py>21px>31oop=1:was;d(2),d(1);d$:d(2)=py:d(1)=px:358f ` des102fd(3)=(des=96`+ho)*2+(des=96`+aw)*-2:d(4)=(d(3)=-2)*(r(2)-2)+(d(3)=2)*(r(3)-2):was;d(2),d(1);d$;(des-96`);py,px;d$;py,px;f$(5*(py+px23)+(py+px=23)*(6+k(3)));py,px;f$(6):.15~,-30:.08}# =,-40(:(des-96`);py,px;f$(6);py,px;f$(5*(py+px23)+(py+px=23)*(6+k(3))):d(2)=py:d(1)=px:359g a\was;d(2),d(1);d$;1;py,px;d$:d(2)=py:d(1)=px:359g fg(px+py<22)(py0)(py21)(px0)(px31)1;py,px;d$:359g gwas=des-96`: h,6;f(1,2),f(1,1);f$(wm1);aw;f(1,2),f(1,1)-1;f$(wm):f(1,1)=f(1Track-Info  R ,1)-1:i=23:py=f(i,2)+1*(f(i,2)<10 )-1*(f(i,2)>9 ):px=f(i,1)-1:des=(py,px) ides=102f(py+px>24)6;f(i,2),f(i,1);f$(wm1+2*(f(i,2)<10 )):aw;py,px;f$(wm+2*(py<10 )):f(i,2)=py:f(i,1)=px:363k j6;f(i,2),f(i,1);f$(wm1+2*(f(i,2)<10 ));aw;f(i,2),f(i,1);f$(wm+2*(f(i,2)<10 )) ki mi=13:py=g(i,2)+1*(g(i,2)<10 )-1*(g(i,2)>9 ):px=g(i,1)-1:des=(py,px) ndes=102f(py+px>23)6;g(i,2),g(i,1);f$(wm+2*(g(i,2)<10 )):ho;py,px;f$(wm1+2*(py<10 )):g(i,2)=py:g(i,1)=px:368p o6;g(i,2),g(i,1);f$(wm+2*(g(i,2)<10 ));ho;g(i,2),g(i,1);f$(wm1+2*(g(i,2)<10 )) pi { g7:1:6:4:was=6:f$="":d$="":k$="":k(3)=1: _184,88X:16,-8:8,-16:-24,0:247,0:-175,175:183,64@:0,24:-480,480:0,-24:191,568:-24,0:-64@,64@:24,0:223,24:-96`,0:-115s,115s:96`,0 N136,135:16,-8:8,-16:-24,0 153,126~:480,-480:94^,84T:2,0:94^,85U:2,0:557,96`:40(,-40(,2*/5  1 Kf(1,2)=3+r(18):f(1,1)=6-r(6):d(1)=f(1,1)+1:d(2)=f(1,2):d(3)=1:d(4)=0:k(1)=20-r(2)-2*(f(1,2)<11 )+2*(f(1,2)>10 ):k(2)=k(1)-8 i=23 ?f(i,1)=21-r(20):f(i,2)=r(21) Vf(i,1)-f(i,2)>6f(i,1)7g(i,1)15)+(d(2)>12 d(2)<16)*(r(2)-2):d(3)=2:450:450:450:ho;f(1,2),f(1,1);f$(1);f(1,2),f(1,1);f$(5) #oop1450:444 (d(1)-d(2)>9 )(d(2)<14)(d(2)>4)(d(1)>16)(d(1)<25)(d(1)=24d(2)=13 d(4)<0)s(1)=s(1)+1:290":447 M0:0;7;1,10 ;"NO GOL!":.25~,-502  200  §px=d(1)+d(3):py=d(2)+d(4):des=(py,px):((px-py=7)(px-py=6)(px-py=5)(px-py=4))py>7py<14280 Çpx-py>9 py<0py>21px<0oop=1:was;d(2),d(1);d$:d(2)=py:d(1)=px:Track-Info  R 458 des102fd(3)=(des=96`+ho)*2+(des=96`+aw)*-2:d(4)=(d(3)=2)*(r(2)-2)+(d(3)=-2)*(r(3)-2):was;d(2),d(1);d$;(des-96`);py,px;d$;py,px;f$(5*(px-py8)+(px-py=8)*(6+k(3)));py,px;f$(6):.15~,-30:.08}# =,-40(:(des-96`);py,px;f$(6);py,px;f$(5*(px-py8)+(px-py=8)*(6+k(3))):d(2)=py:d(1)=px:459 \was;d(2),d(1);d$;1;py,px;d$:d(2)=py:d(1)=px:459 f(px-py>9 )(py0)(py21)(px0)(px31)1;py,px;d$:459 was=des-96`: ,6;f(1,2),f(1,1);f$(wm1);ho;f(1,2),f(1,1)+1;f$(wm):f(1,1)=f(1,1)+1:i=23:py=f(i,2)+1*(f(i,2)<10 )-1*(f(i,2)>9 ):px=f(i,1)+1:des=(py,px) des=102f(px-py<7)6;f(i,2),f(i,1);f$(wm1+2*(f(i,2)<10 )):ho;py,px;f$(wm+2*(py<10 )):f(i,2)=py:f(i,1)=px:463 Γ6;f(i,2),f(i,1);f$(wm1+2*(f(i,2)<10 ));ho;f(i,2),f(i,1);f$(wm+2*(f(i,2)<10 )) i ъi=13:py=g(i,2)+1*(g(i,2)<10 )-1*(g(i,2)>9 ):px=g(i,1)+1:des=(py,px) des=102f(px-py<8)6;g(i,2),g(i,1);f$(wm+2*(g(i,2)<10 )):aw;py,px;f$(wm1+2*(py<10 )):g(i,2)=py:g(i,1)=px:468 ӓ6;g(i,2),g(i,1);f$(wm+2*(g(i,2)<10 ));aw;g(i,2),g(i,1);f$(wm1+2*(g(i,2)<10 )) i   "futbol"100d %@"Quieres jugar otra vez?"'i$:i$"s"i$"S"i$"si"i$"SI" * 100d ,,"Tienes ";m;" y debes ";l  5:'1;1;"No tienes dinero suficiente!"  A,,a$(7);t(t1-lt);13 ;"Partido de liga num.=";ml  X1180:.2~L,0:1;0;6;"Pulsa ENTER para seguir";y$ Y$="H"y$="h":1030  xz<1xz=1 xz>20xz=20   8"p = jug. escogido., i =lesionado"  8M1;0;6;"O escribe 99 para seguir":.2~L,0 < B[0;7;t$(x(1));12 ;s(1),t$(x(2));28;s(2) D L8;a$(6);d1 N ` p=0 b p1=0 er=124 jp(r)=2p=p+1 op(r)>0p1=p1+1 tr v"JUG. ESCOGIDOS=";p'' y ~"q=1100d*r(10 ) q   xz=a(i)  1040  a(i)=xz  1180:i$ i$="h"i$="H":1170 <q=1̱i$:i$(q)<480ůi$(q)>5791170 q  q=("0"+i$)  21,24;"(h=copy)"   ,"Menu ","Vender o listar "," tus jugadores"," a",,,"Imprimir puntos,etc";" - s",,,"Obtener un prestamo";" - l",,,"Pagar el prestamo";" - p"''"Cambiar tu"'" nivel de destreza";" - level"''"Cambiar equipo o"'" de jug.";" - change",,,"Grabar juego"," - keep",,,  10808 1180:x$ x$="h"x$="H":2180 'x$="a"x$="A"2400` :2000 'x$="l"x$="L"2800 :2000 'x$="s"x$="S"3000 :2000 'x$="p"x$="P"2900T :2000 =x$="change"x$="CHANGE"9400$:9500%:2000 /x$="level"x$="LEVEL"3200 :2000 42000+299+*(x$="keep"x$="KEEP"x$="99")  ` 1050 2540 n=124 p(n)=02460 pl=n 2550 n 1120` )"INTROD. EL NO. DE JUG. A VENDER" 10808 1170 i=q i=99c2539 "i<1i>242473 p(i)=02473 i=99c2539  p(i)32484 ("Esta lesionado- nadie le quiere!" 1030 2539 *o=(((*5+8)*v(i))/10 ) rt$(r(64@));" han ofrecido ";o," por ";p$(i)''"esta valorado ";v(i):1180:"aceptas?",i$ i$="h"i$="H"::2485 +i$="si"i$="SI"i$="S"i$="s"2500 2535 p(i)=0 m=m+o Track-Info  R  p$(i);" ha sido vendido " 1030 2539 !r(3)=12539 p(i)=3  ;1;6;" NOMBRE NUM. DE DESTREZA"  ٨p(pl)-1;1;r$(((pl-1)/8+1));0;p$(pl);" ";pl;15;r(pl);20;y(pl);24;"`";v(pl);31;q$(p(pl)+(p(pl)=0))   1000 )'"Int. la cant. para el prestamo" 1170 i=q  ki+l>250000t$*d2"Perdon, tu credito es solo de-";250000t$*d2:1030:2800 m=m+i:l=l+i  1000  1030  T:1000 YA'"Escribe la cant. que quieres pagar de tu prestamo" ^ 1170 ci=q e h4i>l"NO DEBES TANTO!":1030:2900T m)i>m1010:1030:2900T rl=l-i:m=m-i w 1000 | 1030   Ft$(t1),"Colores = ";("Negro"(tco=0))+("Blanco"(tco=7)) '"Manager : ";m$' s5=03010 s1=(s/s5)*2 s1>100ds1=100d ,'"Rango del manager(Max 100)= ";s1 T'"Nivel ";l1,1;l1;9 ;l$(l1);0;" "''"Temporadas ";s5 1000 a$(2);a(2) 1020 1030   g"Tu actual nivel de destreza es:"'"Nivel ";l1,1;l1;9 ;l$(l1):''"Tus opciones son:"'' i=17 i,1;i;9 ;l$(i) i ."Introduce el numero del nivel ":1170 8q<1q>7:"1 a 7 ":300,:3200 al1=q::"Tu nuevo nivel de destreza es:"'"Nivel ";l1,1;l1;9 ;l$(l1):1030  ma=ma+1  lc=2 $ma=3ma=0:lc=1 fa=1lc=2  4100    lc14120  c=c+1 'v1=((8-c)*8+r(8)) v1=t14118 lc24140, ml=ml+1  v1=ml+lt "v1=t1v1=lt+16 ,i=15 6]lc=1u(i)=(r(16)+l1+((t1-1)/16)-((v1-1)/16+1)) 83lc=2u(i)=(r(14)+l1+(z(v1-lt)/ml)) ;xz=u(i):1040:u(i)=xz @i ^'lc=14500:h=r(2) h/lc=2h=((1.5@/h1)+1):h1=h mv=((1.5@/h)+1) rlc=14600 wlc=24700\ | x(h)=t1 ~ x(v)=v1 s(1)=0 s(2)=0 >lc=1"Partido de Copa del Rey. Jornada";c$ 3lc=2"Partido de liga ";a$(6);d1  4240  4245 P'6;t$(x(1));" v ";t$(x(2)),,,a$(5+lc);x1;20;x2   1030  6000p  5000 "Recaudacion:";x9;" ` " m=m+x9  1030 lc=24340 s(h)s(v)4340  "Partido de vuelta"  1030  h=((1.5@/h)+1) v=((1.5@/v)+1)  4210r lc=15200P lc=27000X Cs(h)>s(v)a(2)=a(2)+((20-a(2))/2) -s(h)11 6300 BA"Escribe el num. del jug. que se"'"va a unir al equipo" G 10808 H 1170 Ii=q Ji=99c6112 L@i<1i>24"ESE JUGADOR NO EXISTE!":6216H Q8p(i)1"JUGADOR NO DISPONIBLE!":6216H Vp(i)=2 ` 6142 >"Escribe el nombre del jugador "'"que sale del equipo" 1170 i=q ?i<1i>24"JUGADOR NO EXISTENTE!":6310 6p(i)2"NO ESTA EN EL EQUIPO":6310 p(i)=1  6142 c di=15 ea(i)=a(i)*(i=2) fi ii=124 np(i)26550 x"q=((i-1)/8)+3 a(q)=a(q)+r(i) a(1)=a(1)+y(i) i #a(1)=(a(1)/11 ) #10 ;t$(t1);22;t$(v1) i=15  1160 %a$(i);13 ;a(i);25;u(i) i  Xb(t1-lt)=b(t1-lt)+s(h) ]c(t1-lt)=c(t1-lt)+s(v) bb(v1-lt)=b(v1-lt)+s(v) gc(v1-lt)=c(v1-lt)+s(h) lMs(h)=s(v)z(t1-lt)=z(t1-lt)+1:z(v1-lt)=z(v1-lt)+1:7099 vhs(h)r3z(r)=z(r)+3 r2177346 2i=116 4 u$(i)=(i) 5i 6pass=1 7change=0 8i=116-pass :q=u$(i):q1=u$(i+1) >z(q)>z(q1)7800x @z(q)b(q1)-c(q1)7800x D#b(q)-c(q)b(q1)7800x F 7770Z ZGq2=(u$(i)):u$(i)=u$(i+1):u$(i+1)=(q2):change=1 xi y'pass=pass+1:change77357 z 7805} { } ~67;1;1;"EQUIPO"," F A PTS" i=116  q1=u$(i) ;t$(q1+lt);18;b(q1);22;c(q1);28;z(q1)  t(q1)=i i  1020  1030  @ T w=0 Vi=124 X%p(i)>0w=w+r(i)*100d*d2 [i `"****FACTURAS SEMANALES****"''"Salario semanal(`) =";w'"Alquiler del campo(`) = ";x'"Interes del prestamo(`)= ";(l/100d) dm=m-w-x-(l/100d) hHi=m-l-xp:"Balance semanal = ";0+(i<0)*2;"";i mxp=m-l rm08060| sl=l-m t m=0 x:"SE AUMENTA EL PRESTAMO PARA PTrack-Info  R AGAR LAS FACTURAS" |l>250000t$*d2"++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++DEBES MAS DE ";250000t$*D2'"PTS++++HAS SIDO DESPEDIDO POR EL+++++++++++++++++++++++++++CLUB!++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++":1030:  1030  $ml<15fa=084993!  $"****FIN DE TEMPORADA****"  1030  7805}  r1=17-t(t1-lt) s=s+r1+c*2*d1 m=m+r1*5000*d2 @"Beneficios de la liga =",," ";r1*5000*d2 &s5=s5+1 +i=116 0 85004! 3 8600! 6i : 8800`" D#"****Nueva temporada****" N 1100L X 1030 !3 !4t(i)>38579! !Cd1=18570z! !HPt$(lt+i);" ascienden de division*****************************************" !Rx$=t$(lt-t(i)) !\t$(lt-t(i))=t$(lt+i) !f t$(lt+i)=x$ !hlt+i=t1t1=(lt-t(i)) !p 8579! !zZt(i)=1t$(lt+i);" son los campeones de liga*********************************" ! !d1=48699! !t(i)<148699! !Pt$(lt+i);" descienden de division++++++++++++++++++++++++++++++++++++++++" !"x$=t$(d1*16+17-t(i)) !(t$(d1*16+17-t(i))=t$(lt+i) ! t$(lt+i)=x$ !'lt+i=t1t1=d1*16+17-t(i) ! !ml=08780L" !r1=r(24) "p(r1)>08700! " ")"****Mercado de fichajes****"'' "p1>15"No puedes comprar mas jugadores porque tienes ya 16,que es lo maximo permitido segun las reglas de la F.I.F.A.":8778J" " 1000 " 2540 "pl=r1 " 2550 "$&'"Escribe tu oferta"'' "& 10808 ") 1170 "*n=q ".n=99c8780L" "3mn87608" "4 1010 "5 1030 "6 8705" "8r=(r(10 )*n)/v(r1) "9 ":r58770B" ">8785Q":1030 "@ 8705" "B#p$(r1);" se ha unido a tu equipo" "Ev(r1)=r(r1)*5000*d2 "Fm=m-n "Gp(r1)=1 "J 1030 "L "Qv(r1)=(v(r1)+v(r1)/5) "R'"TU OFERTA ES RECHAZADA" "T "`'d1=(((t1-1)/16)+1) "a fa=0 "blt=(d1-1)*16 "c lc=0 "d h=1 "ed2=5-d1 "f ma=1 "g ml=0 "h y=0 "i z=0 "ji=116 "kz(i)=0 "lt(i)=0 "mb(i)=0 "nc(i)=0 "ri "s v=0 "ti=124 "x#v(i)=(5000*d2*r(5)) "{r(i)=(v(i)/(5000*d2)) "~y(i)=r(20) "i "z(17)=-1 "a(2)=10 "g=5000*d2 " c=0 "x=500*d2 " h1=2 " " d1=0 "d1=d1+1 "d1>48900" " "/1;"ELIGE EQUIPO PARA ENTRENAR" ""NUMERO","NOMBRE" "lt=(d1-1)*16 "i=lt+1lt+16 " i,t$(i) "i "b0;6;"Escribe el numero del equipo quequieres entrenar(o 99 para mas informacion)" " 1170 "t1=q "t1=99c8902" "*t1lt+168935" " d1=4 "y$=t$(64@) "t$(64@)=t$(t1) " t$(t1)=y$ " t1=64@ " "4i=17:i,1;i;9 ;l$(i):i #"Escribe tu nivel (1-7)" # 1170 #l1=q ##l1<1l1>78955" #:"Introduce el color de tu equipo (0=Negro o 7=Blanco)":1170:tco=q::tco0tco7"0 o 7 ":200:8966# # i=112 #r=r(24) #p(r)>08975# #p(r)=2 #i=12 p(r)=1 #i # 8800`" #' #( 9030F# #-i=124 #2p$(i) #<i #F"Juanito","Dani","Solsona","Gordillo","Bonet","Gallego","Agustin","Metgod","Sarabia","Quini","Stielike","Maradona","Pineda","L.Ufarte","Camacho","Carrasco","Pedraza","Senyor","Alexanco","Amarilla","Fraile","Salguero","Schuster","Argote" #a$(1)="Energia" #a$(2)="Animo" #a$(3)="Defensa" #a$(4)="Cent.Campo" #a$(5)="Delantera" #a$(6)="Division " #a$(7)="Pos.Liga " #l$(1)="Principiante":l$(2)="Novato":l$(3)="Mediano":l$(4)="Bueno":l$(5)="Experto":l$Track-Info  R (6)="Super Experto":l$(7)="Genio" # 9230$ #i=164@ #t$(i) $i $"R.Madrid","Zaragoza","R.Sociedad","Barcelona","A.Madrid","A.Bilbao","Celta","Huelva","Valencia","Santander","Osasuna","Las Palmas","Gijon","Sevilla","Espanyol","R.Betis" $"Linares","Getafe","Jerez","Castilla","Malaga","Cadiz","Castellon","Cordoba","Hercules","Celta","Salamanca","Corunya","Sabadell","Manresa","Soria","Cuenca" $""Orihuela","Murcia","Tarrasa","Zamora","Alaves","Lugo","Cartagena","Sagunto","Mallorca","Orense","Leon","Oviedo","Aragones","Numancia","Benidorm","Almeria" $,"Gandia","Pamplona","Tarragona","Villalba","Menorca","Alicante","Mahones","Talavera","Vich","Astorga","Sanabria","Avila","Palencia","Merida","Aranjuez","Teruel" $6q$(1)=" " $7q$(2)="p" $8q$(3)="i" $9r$(1)="D" $:r$(2)="M" $;r$(3)="A" $S $ $7"Quieres cambiar algun nombre de equipo (s/n)?",i$ $-i$"s"i$"S"i$"si"i$"SI"9499% $ d3=0 $d3=d3+1 $d3>49415$ $:a$(6);d3 $2"NUMERO","NOMBRE":low=(d3-1)*16 $(i=low+1low+16:i,t$(i):i $l"Escribe nu. de equipo para cambiar o 99 para mas informa- cion " $$1170:q=99c9420$ $Gqlow+16"EQUIPO FUERA DE RANGO":9450$ $#i=q:"Tu actual equipo es ";t$(i) $2"Escribe el nombre del nuevo equipo",i$ $i$="h"i$="H":9465$ $i$=09465$ $#i$(1)169476% %Mi$(2)<0ůi$(2)>4"COLOR INVALIDO":9465$ %Qi$(3)<65Aůi$(3)>122z"EQUIPO INVALIDO":9465$ %Si$>12 "NOMBRE DE EQUIPO DEMASIADO LARGO- max. 10 carac.-":9465$ % 9478% %Qi$(1)<65Aůi$(1)>122z"EQUIPO INVALIDO":9465$ %Si$>10 "NOMBRE DE EQUIPO DEMASIADO LARGO- max. 10 carac.-":9465$ %-t$(i)=i$:"Nuevo nombre del equipo: ";t$(i) %@"Algun cambio mas (s/n)?",i$:i$="h"i$="H":9479% %-i$="s"i$="S"i$="si"i$="SI"9430$ % % %!@"Quieres cambiar el nombre de algun jugador (s/n)?",i$ %&-i$"s"i$"S"i$"si"i$"SI"9599% %+ d3=0 %,d3=d3+1 %0d3>39515+% %5:a$(d3+2) %:1"NUMERO","NOMBRE":low=(d3-1)*8 %?'i=low+1low+8:i,p$(i):i %DV6;1;"Escribe nu. del jugador para cambiar o 99 para mayor eleccion" %I$1170:q=99c9516,% %NKqlow+8"NU. DE JUG. FUERA DE RANGO":9545I% %S%i=q:"El actual jugador es: ";p$(i) %XP"Escribe el nombre del nuevo jugador",i$:i$="h"i$="H":9560X% %Yi$=09560X% %]\i$(1)<65Aůi$(1)>122z"NOMBRE DE JUGADOR INVALIDO":9560X% %bTi$>8"NOMBRE DE JUGADOR DEMASIADO LARGO-max. 8 carac.":9560X% %g!p$(i)=i$:"Nuevo nombre ";p$(i) %l@"Algun cambio mas (s/n)?";i$:i$="h"i$="H":9580l% %q-i$="s"i$="S"i$="si"i$="SI"95255% % & "FUTBOL" & 0 -#  ##  ae  uPrincipiante Novato Mediano Bueno Experto Super Experto Genio  XSSJuanito Dani Solsona GordilloBonet Gallego Agustin Metgod Sarabia Quini StielikeMaradonaPineda L.UfarteCamacho CarrascoPedraza Senyor AlexancoAmarillaFraile SalgueroSchusterArgote {@ R.Madrid Zaragoza R.SociedadBarcelona A.Madrid A.Bilbao Celta Huelva Valencia Santander OsasTrack-Info R         una Las Palmas Linares Zamora Getafe R.Betis Sevilla Espanyol Jerez Castilla Malaga Cadiz Castello S D Energia Animo Defensa Cent.CampDelanteraDivision Pos.Liga  {{{lmCPs0 @c%hyzvgcx3 p ! ormas hang w C2X99I99YMPLUS3DOSxr?:"FOOTBALL MANAGER"'" Copyright K. J. Toms 1982":300, 7:0:7:0:0:0:0::"Dime tu nombre ";m$:m$>20:"Es demasiado largo(max 20 carac.)":200:9 9000(#:8900" b+p(p )=((p-1)/8+1) cr(x)=(*x+1) d e 2000 n x$="keep"x$="KEEP"800  x 4000 8000@ 8100 8700! 100d  261 324,88X,126~,26,120x,72H,206,2,480,480,24,60<,28,568,480,40(,24,24,30,58:,24,42*,36$,32 ,24,24,24,28,60<,24,28,8,24,24,60<,90Z,90Z,60<,36$,102f,0,0,0,0,0,0,3,3,24,26,126~,88X,30,18,115s,64@,12 ,12 ,24,60<,568,28,12 ,20,24,24,120x,92\,24,84T,36$,4,24,24,24,568,60<,24,568,8,0,0,0,0,0,0,192,192,24,24,61=,90Z,568,28,20,36$,24,24,188,90Z,28,568,40(,36$,12 ,12 ,60<,91[,152,62>,64@,192,480,480,60<,218,25,124|,2,3  $i=015*8-1  q:"a"+i,q  i   06;k(2),k(1);k$(k(3)):k(3)=(1.5@/k(3))+1:r3=(d(2)>k(2)+(d(4)0))-(d(2)k(2)+(d(4)0))-(d(2)10 ):k(2)=23-k(1) 7i=23 8?f(i,1)=10 +r(20):f(i,2)=r(21) 9Wf(i,1)+f(i,2)<25f(i,1)>f(1,1)-43128 :Aj=13:(f(i,2)=f(j,2))(ji)3128 ;j:i <i=13 =?g(i,1)=10 +r(10 ):g(i,2)=r(18) >Wg(i,1)+g(i,2)<24g(i,1)>f(1,1)-4317= ?_j=13:(g(i,2)=f(j,2))((g(i,2)=g(j,2))(ji))317= @j:i Baw;f(1,2),f(1,1);f$(1):i=23:aw;f(i,2),f(i,1);f$(1+2*(f(i,2)<10 )):i Cbi=13:ho;g(i,2),g(i,1);f$(2+2*(g(i,2)<10 )):i E$1;d(2),d(1);d$ F(ho;k(2),k(1);k$(1) T:oop=0:dri=r(3)*2-1:wm=1 Ue=1dri:wm1=wm:wm=(1.5@/wm)+1:6;d(2),d(1);d$;1;d(2),d(1)-1;d$:d(1)=d(1)-1:360h:e VXj=13:6;g(j,2),g(j,1);f$(wm1+2*(g(j,2)<10 ));ho;g(j,2),g(j,1);f$(5):j:j=23:6;f(j,2),f(j,1);f$(wm+2*(f(j,2)<10 ));aw;f(j,2),f(j,1);f$(5):j:6;f(1,2),f(1,1);f$(2) Weaw;f(1,2),f(1,1);f$(1):.15~,-40(:d(4)=(d(2)<8)-(d(2)>15)+(d(2)>12 d(2)<16)*(r(2)-2):d(3)=-2:350^:350^:350^:aw;f(1,2),f(1,1);f$(1);f(1,2),f(1,1);f$(5) X#oop1350^:344X Y(d(1)+d(2)<22)(d(2)<14)(d(2)>4)(d(1)<15)(d(1)>6)(d(1)=7d(2)=13 d(4)<0)s(2)=s(2)+1:290":347[ ZM0:0;7;1,10 ;"NO GOL!":.25~,-502 [ 200 ] ^px=d(1)+d(3):py=d(2)+d(4):des=(py,px):((py+px=24)(py+px=25)(py+px=26)(py+px=27))py>7py<14270 _px+py<22py<0py>21px>31oop=1:was;d(2),d(1);d$:d(2)=py:d(1)=px:358f ` des102fd(3)=(des=96`+ho)*2+(des=96`+aw)*-2:d(4)=(d(3)=-2)*(r(2)-2)+(d(3)=2)*(r(3)-2):was;d(2),d(1);d$;(des-96`);py,px;d$;py,px;f$(5*(py+px23)+(py+px=23)*(6+k(3)));py,px;f$(6):.15~,-30:.08}# =,-40(:(des-96`);py,px;f$(6);py,px;f$(5*(py+px23)+(py+px=23)*(6+k(3))):d(2)=py:d(1)=px:359g a\was;d(2),d(1);d$;1;py,px;d$:d(2)=py:d(1)=px:359g fg(px+py<22)(py0)(py21)(px0)(px31)1;py,px;d$:359g gwas=des-96`: h,6;f(1,2),f(1,1);f$(wm1);aw;f(1,2),f(1,1)-1;f$(wm):f(1,1)=f(1Track-Info R         ,1)-1:i=23:py=f(i,2)+1*(f(i,2)<10 )-1*(f(i,2)>9 ):px=f(i,1)-1:des=(py,px) ides=102f(py+px>24)6;f(i,2),f(i,1);f$(wm1+2*(f(i,2)<10 )):aw;py,px;f$(wm+2*(py<10 )):f(i,2)=py:f(i,1)=px:363k j6;f(i,2),f(i,1);f$(wm1+2*(f(i,2)<10 ));aw;f(i,2),f(i,1);f$(wm+2*(f(i,2)<10 )) ki mi=13:py=g(i,2)+1*(g(i,2)<10 )-1*(g(i,2)>9 ):px=g(i,1)-1:des=(py,px) ndes=102f(py+px>23)6;g(i,2),g(i,1);f$(wm+2*(g(i,2)<10 )):ho;py,px;f$(wm1+2*(py<10 )):g(i,2)=py:g(i,1)=px:368p o6;g(i,2),g(i,1);f$(wm+2*(g(i,2)<10 ));ho;g(i,2),g(i,1);f$(wm1+2*(g(i,2)<10 )) pi { g7:1:6:4:was=6:f$="":d$="":k$="":k(3)=1: _184,88X:16,-8:8,-16:-24,0:247,0:-175,175:183,64@:0,24:-480,480:0,-24:191,568:-24,0:-64@,64@:24,0:223,24:-96`,0:-115s,115s:96`,0 N136,135:16,-8:8,-16:-24,0 153,126~:480,-480:94^,84T:2,0:94^,85U:2,0:557,96`:40(,-40(,2*/5  1 Kf(1,2)=3+r(18):f(1,1)=6-r(6):d(1)=f(1,1)+1:d(2)=f(1,2):d(3)=1:d(4)=0:k(1)=20-r(2)-2*(f(1,2)<11 )+2*(f(1,2)>10 ):k(2)=k(1)-8 i=23 ?f(i,1)=21-r(20):f(i,2)=r(21) Vf(i,1)-f(i,2)>6f(i,1)7g(i,1)15)+(d(2)>12 d(2)<16)*(r(2)-2):d(3)=2:450:450:450:ho;f(1,2),f(1,1);f$(1);f(1,2),f(1,1);f$(5) #oop1450:444 (d(1)-d(2)>9 )(d(2)<14)(d(2)>4)(d(1)>16)(d(1)<25)(d(1)=24d(2)=13 d(4)<0)s(1)=s(1)+1:290":447 M0:0;7;1,10 ;"NO GOL!":.25~,-502  200  §px=d(1)+d(3):py=d(2)+d(4):des=(py,px):((px-py=7)(px-py=6)(px-py=5)(px-py=4))py>7py<14280 Çpx-py>9 py<0py>21px<0oop=1:was;d(2),d(1);d$:d(2)=py:d(1)=px:Track-Info R         458 des102fd(3)=(des=96`+ho)*2+(des=96`+aw)*-2:d(4)=(d(3)=2)*(r(2)-2)+(d(3)=-2)*(r(3)-2):was;d(2),d(1);d$;(des-96`);py,px;d$;py,px;f$(5*(px-py8)+(px-py=8)*(6+k(3)));py,px;f$(6):.15~,-30:.08}# =,-40(:(des-96`);py,px;f$(6);py,px;f$(5*(px-py8)+(px-py=8)*(6+k(3))):d(2)=py:d(1)=px:459 \was;d(2),d(1);d$;1;py,px;d$:d(2)=py:d(1)=px:459 f(px-py>9 )(py0)(py21)(px0)(px31)1;py,px;d$:459 was=des-96`: ,6;f(1,2),f(1,1);f$(wm1);ho;f(1,2),f(1,1)+1;f$(wm):f(1,1)=f(1,1)+1:i=23:py=f(i,2)+1*(f(i,2)<10 )-1*(f(i,2)>9 ):px=f(i,1)+1:des=(py,px) des=102f(px-py<7)6;f(i,2),f(i,1);f$(wm1+2*(f(i,2)<10 )):ho;py,px;f$(wm+2*(py<10 )):f(i,2)=py:f(i,1)=px:463 Γ6;f(i,2),f(i,1);f$(wm1+2*(f(i,2)<10 ));ho;f(i,2),f(i,1);f$(wm+2*(f(i,2)<10 )) i ъi=13:py=g(i,2)+1*(g(i,2)<10 )-1*(g(i,2)>9 ):px=g(i,1)+1:des=(py,px) des=102f(px-py<8)6;g(i,2),g(i,1);f$(wm+2*(g(i,2)<10 )):aw;py,px;f$(wm1+2*(py<10 )):g(i,2)=py:g(i,1)=px:468 ӓ6;g(i,2),g(i,1);f$(wm+2*(g(i,2)<10 ));aw;g(i,2),g(i,1);f$(wm1+2*(g(i,2)<10 )) i   "futbol"100d %@"Quieres jugar otra vez?"'i$:i$"s"i$"S"i$"si"i$"SI" * 100d ,,"Tienes ";m;" y debes ";l  5:'1;1;"No tienes dinero suficiente!"  A,,a$(7);t(t1-lt);13 ;"Partido de liga num.=";ml  X1180:.2~L,0:1;0;6;"Pulsa ENTER para seguir";y$ Y$="H"y$="h":1030  xz<1xz=1 xz>20xz=20   8"p = jug. escogido., i =lesionado"  8M1;0;6;"O escribe 99 para seguir":.2~L,0 < B[0;7;t$(x(1));12 ;s(1),t$(x(2));28;s(2) D L8;a$(6);d1 N ` p=0 b p1=0 er=124 jp(r)=2p=p+1 op(r)>0p1=p1+1 tr v"JUG. ESCOGIDOS=";p'' y ~"q=1100d*r(10 ) q   xz=a(i)  1040  a(i)=xz  1180:i$ i$="h"i$="H":1170 <q=1̱i$:i$(q)<480ůi$(q)>5791170 q  q=("0"+i$)  21,24;"(h=copy)"   ,"Menu ","Vender o listar "," tus jugadores"," a",,,"Imprimir puntos,etc";" - s",,,"Obtener un prestamo";" - l",,,"Pagar el prestamo";" - p"''"Cambiar tu"'" nivel de destreza";" - level"''"Cambiar equipo o"'" de jug.";" - change",,,"Grabar juego"," - keep",,,  10808 1180:x$ x$="h"x$="H":2180 'x$="a"x$="A"2400` :2000 'x$="l"x$="L"2800 :2000 'x$="s"x$="S"3000 :2000 'x$="p"x$="P"2900T :2000 =x$="change"x$="CHANGE"9400$:9500%:2000 /x$="level"x$="LEVEL"3200 :2000 42000+299+*(x$="keep"x$="KEEP"x$="99")  ` 1050 2540 n=124 p(n)=02460 pl=n 2550 n 1120` )"INTROD. EL NO. DE JUG. A VENDER" 10808 1170 i=q i=99c2539 "i<1i>242473 p(i)=02473 i=99c2539  p(i)32484 ("Esta lesionado- nadie le quiere!" 1030 2539 *o=(((*5+8)*v(i))/10 ) rt$(r(64@));" han ofrecido ";o," por ";p$(i)''"esta valorado ";v(i):1180:"aceptas?",i$ i$="h"i$="H"::2485 +i$="si"i$="SI"i$="S"i$="s"2500 2535 p(i)=0 m=m+o Track-Info R          p$(i);" ha sido vendido " 1030 2539 !r(3)=12539 p(i)=3  ;1;6;" NOMBRE NUM. DE DESTREZA"  ٨p(pl)-1;1;r$(((pl-1)/8+1));0;p$(pl);" ";pl;15;r(pl);20;y(pl);24;"`";v(pl);31;q$(p(pl)+(p(pl)=0))   1000 )'"Int. la cant. para el prestamo" 1170 i=q  ki+l>250000t$*d2"Perdon, tu credito es solo de-";250000t$*d2:1030:2800 m=m+i:l=l+i  1000  1030  T:1000 YA'"Escribe la cant. que quieres pagar de tu prestamo" ^ 1170 ci=q e h4i>l"NO DEBES TANTO!":1030:2900T m)i>m1010:1030:2900T rl=l-i:m=m-i w 1000 | 1030   Ft$(t1),"Colores = ";("Negro"(tco=0))+("Blanco"(tco=7)) '"Manager : ";m$' s5=03010 s1=(s/s5)*2 s1>100ds1=100d ,'"Rango del manager(Max 100)= ";s1 T'"Nivel ";l1,1;l1;9 ;l$(l1);0;" "''"Temporadas ";s5 1000 a$(2);a(2) 1020 1030   g"Tu actual nivel de destreza es:"'"Nivel ";l1,1;l1;9 ;l$(l1):''"Tus opciones son:"'' i=17 i,1;i;9 ;l$(i) i ."Introduce el numero del nivel ":1170 8q<1q>7:"1 a 7 ":300,:3200 al1=q::"Tu nuevo nivel de destreza es:"'"Nivel ";l1,1;l1;9 ;l$(l1):1030  ma=ma+1  lc=2 $ma=3ma=0:lc=1 fa=1lc=2  4100    lc14120  c=c+1 'v1=((8-c)*8+r(8)) v1=t14118 lc24140, ml=ml+1  v1=ml+lt "v1=t1v1=lt+16 ,i=15 6]lc=1u(i)=(r(16)+l1+((t1-1)/16)-((v1-1)/16+1)) 83lc=2u(i)=(r(14)+l1+(z(v1-lt)/ml)) ;xz=u(i):1040:u(i)=xz @i ^'lc=14500:h=r(2) h/lc=2h=((1.5@/h1)+1):h1=h mv=((1.5@/h)+1) rlc=14600 wlc=24700\ | x(h)=t1 ~ x(v)=v1 s(1)=0 s(2)=0 >lc=1"Partido de Copa del Rey. Jornada";c$ 3lc=2"Partido de liga ";a$(6);d1  4240  4245 P'6;t$(x(1));" v ";t$(x(2)),,,a$(5+lc);x1;20;x2   1030  6000p  5000 "Recaudacion:";x9;" ` " m=m+x9  1030 lc=24340 s(h)s(v)4340  "Partido de vuelta"  1030  h=((1.5@/h)+1) v=((1.5@/v)+1)  4210r lc=15200P lc=27000X Cs(h)>s(v)a(2)=a(2)+((20-a(2))/2) -s(h)11 6300 BA"Escribe el num. del jug. que se"'"va a unir al equipo" G 10808 H 1170 Ii=q Ji=99c6112 L@i<1i>24"ESE JUGADOR NO EXISTE!":6216H Q8p(i)1"JUGADOR NO DISPONIBLE!":6216H Vp(i)=2 ` 6142 >"Escribe el nombre del jugador "'"que sale del equipo" 1170 i=q ?i<1i>24"JUGADOR NO EXISTENTE!":6310 6p(i)2"NO ESTA EN EL EQUIPO":6310 p(i)=1  6142 c di=15 ea(i)=a(i)*(i=2) fi ii=124 np(i)26550 x"q=((i-1)/8)+3 a(q)=a(q)+r(i) a(1)=a(1)+y(i) i #a(1)=(a(1)/11 ) #10 ;t$(t1);22;t$(v1) i=15  1160 %a$(i);13 ;a(i);25;u(i) i  Xb(t1-lt)=b(t1-lt)+s(h) ]c(t1-lt)=c(t1-lt)+s(v) bb(v1-lt)=b(v1-lt)+s(v) gc(v1-lt)=c(v1-lt)+s(h) lMs(h)=s(v)z(t1-lt)=z(t1-lt)+1:z(v1-lt)=z(v1-lt)+1:7099 vhs(h)r3z(r)=z(r)+3 r2177346 2i=116 4 u$(i)=(i) 5i 6pass=1 7change=0 8i=116-pass :q=u$(i):q1=u$(i+1) >z(q)>z(q1)7800x @z(q)b(q1)-c(q1)7800x D#b(q)-c(q)b(q1)7800x F 7770Z ZGq2=(u$(i)):u$(i)=u$(i+1):u$(i+1)=(q2):change=1 xi y'pass=pass+1:change77357 z 7805} { } ~67;1;1;"EQUIPO"," F A PTS" i=116  q1=u$(i) ;t$(q1+lt);18;b(q1);22;c(q1);28;z(q1)  t(q1)=i i  1020  1030  @ T w=0 Vi=124 X%p(i)>0w=w+r(i)*100d*d2 [i `"****FACTURAS SEMANALES****"''"Salario semanal(`) =";w'"Alquiler del campo(`) = ";x'"Interes del prestamo(`)= ";(l/100d) dm=m-w-x-(l/100d) hHi=m-l-xp:"Balance semanal = ";0+(i<0)*2;"";i mxp=m-l rm08060| sl=l-m t m=0 x:"SE AUMENTA EL PRESTAMO PARA PTrack-Info  R AGAR LAS FACTURAS" |l>250000t$*d2"++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++DEBES MAS DE ";250000t$*D2'"PTS++++HAS SIDO DESPEDIDO POR EL+++++++++++++++++++++++++++CLUB!++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++":1030:  1030  $ml<15fa=084993!  $"****FIN DE TEMPORADA****"  1030  7805}  r1=17-t(t1-lt) s=s+r1+c*2*d1 m=m+r1*5000*d2 @"Beneficios de la liga =",," ";r1*5000*d2 &s5=s5+1 +i=116 0 85004! 3 8600! 6i : 8800`" D#"****Nueva temporada****" N 1100L X 1030 !3 !4t(i)>38579! !Cd1=18570z! !HPt$(lt+i);" ascienden de division*****************************************" !Rx$=t$(lt-t(i)) !\t$(lt-t(i))=t$(lt+i) !f t$(lt+i)=x$ !hlt+i=t1t1=(lt-t(i)) !p 8579! !zZt(i)=1t$(lt+i);" son los campeones de liga*********************************" ! !d1=48699! !t(i)<148699! !Pt$(lt+i);" descienden de division++++++++++++++++++++++++++++++++++++++++" !"x$=t$(d1*16+17-t(i)) !(t$(d1*16+17-t(i))=t$(lt+i) ! t$(lt+i)=x$ !'lt+i=t1t1=d1*16+17-t(i) ! !ml=08780L" !r1=r(24) "p(r1)>08700! " ")"****Mercado de fichajes****"'' "p1>15"No puedes comprar mas jugadores porque tienes ya 16,que es lo maximo permitido segun las reglas de la F.I.F.A.":8778J" " 1000 " 2540 "pl=r1 " 2550 "$&'"Escribe tu oferta"'' "& 10808 ") 1170 "*n=q ".n=99c8780L" "3mn87608" "4 1010 "5 1030 "6 8705" "8r=(r(10 )*n)/v(r1) "9 ":r58770B" ">8785Q":1030 "@ 8705" "B#p$(r1);" se ha unido a tu equipo" "Ev(r1)=r(r1)*5000*d2 "Fm=m-n "Gp(r1)=1 "J 1030 "L "Qv(r1)=(v(r1)+v(r1)/5) "R'"TU OFERTA ES RECHAZADA" "T "`'d1=(((t1-1)/16)+1) "a fa=0 "blt=(d1-1)*16 "c lc=0 "d h=1 "ed2=5-d1 "f ma=1 "g ml=0 "h y=0 "i z=0 "ji=116 "kz(i)=0 "lt(i)=0 "mb(i)=0 "nc(i)=0 "ri "s v=0 "ti=124 "x#v(i)=(5000*d2*r(5)) "{r(i)=(v(i)/(5000*d2)) "~y(i)=r(20) "i "z(17)=-1 "a(2)=10 "g=5000*d2 " c=0 "x=500*d2 " h1=2 " " d1=0 "d1=d1+1 "d1>48900" " "/1;"ELIGE EQUIPO PARA ENTRENAR" ""NUMERO","NOMBRE" "lt=(d1-1)*16 "i=lt+1lt+16 " i,t$(i) "i "b0;6;"Escribe el numero del equipo quequieres entrenar(o 99 para mas informacion)" " 1170 "t1=q "t1=99c8902" "*t1lt+168935" " d1=4 "y$=t$(64@) "t$(64@)=t$(t1) " t$(t1)=y$ " t1=64@ " "4i=17:i,1;i;9 ;l$(i):i #"Escribe tu nivel (1-7)" # 1170 #l1=q ##l1<1l1>78955" #:"Introduce el color de tu equipo (0=Negro o 7=Blanco)":1170:tco=q::tco0tco7"0 o 7 ":200:8966# # i=112 #r=r(24) #p(r)>08975# #p(r)=2 #i=12 p(r)=1 #i # 8800`" #' #( 9030F# #-i=124 #2p$(i) #<i #F"Juanito","Dani","Solsona","Gordillo","Bonet","Gallego","Agustin","Metgod","Sarabia","Quini","Stielike","Maradona","Pineda","L.Ufarte","Camacho","Carrasco","Pedraza","Senyor","Alexanco","Amarilla","Fraile","Salguero","Schuster","Argote" #a$(1)="Energia" #a$(2)="Animo" #a$(3)="Defensa" #a$(4)="Cent.Campo" #a$(5)="Delantera" #a$(6)="Division " #a$(7)="Pos.Liga " #l$(1)="Principiante":l$(2)="Novato":l$(3)="Mediano":l$(4)="Bueno":l$(5)="Experto":l$Track-Info  R (6)="Super Experto":l$(7)="Genio" # 9230$ #i=164@ #t$(i) $i $"R.Madrid","Zaragoza","R.Sociedad","Barcelona","A.Madrid","A.Bilbao","Celta","Huelva","Valencia","Santander","Osasuna","Las Palmas","Gijon","Sevilla","Espanyol","R.Betis" $"Linares","Getafe","Jerez","Castilla","Malaga","Cadiz","Castellon","Cordoba","Hercules","Celta","Salamanca","Corunya","Sabadell","Manresa","Soria","Cuenca" $""Orihuela","Murcia","Tarrasa","Zamora","Alaves","Lugo","Cartagena","Sagunto","Mallorca","Orense","Leon","Oviedo","Aragones","Numancia","Benidorm","Almeria" $,"Gandia","Pamplona","Tarragona","Villalba","Menorca","Alicante","Mahones","Talavera","Vich","Astorga","Sanabria","Avila","Palencia","Merida","Aranjuez","Teruel" $6q$(1)=" " $7q$(2)="p" $8q$(3)="i" $9r$(1)="D" $:r$(2)="M" $;r$(3)="A" $S $ $7"Quieres cambiar algun nombre de equipo (s/n)?",i$ $-i$"s"i$"S"i$"si"i$"SI"9499% $ d3=0 $d3=d3+1 $d3>49415$ $:a$(6);d3 $2"NUMERO","NOMBRE":low=(d3-1)*16 $(i=low+1low+16:i,t$(i):i $l"Escribe nu. de equipo para cambiar o 99 para mas informa- cion " $$1170:q=99c9420$ $Gqlow+16"EQUIPO FUERA DE RANGO":9450$ $#i=q:"Tu actual equipo es ";t$(i) $2"Escribe el nombre del nuevo equipo",i$ $i$="h"i$="H":9465$ $i$=09465$ $#i$(1)169476% %Mi$(2)<0ůi$(2)>4"COLOR INVALIDO":9465$ %Qi$(3)<65Aůi$(3)>122z"EQUIPO INVALIDO":9465$ %Si$>12 "NOMBRE DE EQUIPO DEMASIADO LARGO- max. 10 carac.-":9465$ % 9478% %Qi$(1)<65Aůi$(1)>122z"EQUIPO INVALIDO":9465$ %Si$>10 "NOMBRE DE EQUIPO DEMASIADO LARGO- max. 10 carac.-":9465$ %-t$(i)=i$:"Nuevo nombre del equipo: ";t$(i) %@"Algun cambio mas (s/n)?",i$:i$="h"i$="H":9479% %-i$="s"i$="S"i$="si"i$="SI"9430$ % % %!@"Quieres cambiar el nombre de algun jugador (s/n)?",i$ %&-i$"s"i$"S"i$"si"i$"SI"9599% %+ d3=0 %,d3=d3+1 %0d3>39515+% %5:a$(d3+2) %:1"NUMERO","NOMBRE":low=(d3-1)*8 %?'i=low+1low+8:i,p$(i):i %DV6;1;"Escribe nu. del jugador para cambiar o 99 para mayor eleccion" %I$1170:q=99c9516,% %NKqlow+8"NU. DE JUG. FUERA DE RANGO":9545I% %S%i=q:"El actual jugador es: ";p$(i) %XP"Escribe el nombre del nuevo jugador",i$:i$="h"i$="H":9560X% %Yi$=09560X% %]\i$(1)<65Aůi$(1)>122z"NOMBRE DE JUGADOR INVALIDO":9560X% %bTi$>8"NOMBRE DE JUGADOR DEMASIADO LARGO-max. 8 carac.":9560X% %g!p$(i)=i$:"Nuevo nombre ";p$(i) %l@"Algun cambio mas (s/n)?";i$:i$="h"i$="H":9580l% %q-i$="s"i$="S"i$="si"i$="SI"95255% % & "FUTBOL" & 0 -#  ##  ae  uPrincipiante Novato Mediano Bueno Experto Super Experto Genio  XSSJuanito Dani Solsona GordilloBonet Gallego Agustin Metgod Sarabia Quini StielikeMaradonaPineda L.UfarteCamacho CarrascoPedraza Senyor AlexancoAmarillaFraile SalgueroSchusterArgote {@ R.Madrid Zaragoza R.SociedadBarcelona A.Madrid A.Bilbao Celta Huelva Valencia Santander OsasTrack-Info  R una Las Palmas Linares Zamora Getafe R.Betis Sevilla Espanyol Jerez Castilla Malaga Cadiz Castello S D Energia Animo Defensa Cent.CampDelanteraDivision Pos.Liga  {{{lmCPs0 @c%hyzvgcx3 p ! ormas hang w C2X99I99YMTrack-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info R         Track-Info ! R!!!!!!!!! Track-Info " R""""""""" Track-Info # R######### Track-Info $ R$$$$$$$$$ Track-Info % R%%%%%%%%% Track-Info & R&&&&&&&&& Track-Info ' R'''''''''